10 DIMVT$(25),HT$(40)
12 VT$(1)="":HT$(1)=""
14 FORX=2TO25:VT$(X)=VT$(X-1)+"":HT$(X)=HT$(X-1)+"":NEXTX
15 FORX=26TO40:HT$(X)=HT$(X-1)+"":NEXT
16 :
20 GOSUB3810:GOTO170
30 PRINTVT$(24)HT$(10)"<--- [208]RESS A KEY --->";:POKE198,0:WAIT198,1:GETA$
31 RETURN
40 V=PEEK(214):PRINTVT$(1)"[211][195][207][210][197]:"SE"[157] [207][213][212][160][207][198] 100 [208][207][211][211][201][194][204][197]":PRINTVT$(V);:RETURN
50 H=(40-LEN(A$))/2:PRINTHT$(H)""A$:PRINT"[146]":RETURN
60 REMTHISPROGRAMIS
70 REMDEDICATEDTOSTEVEJOBS
80 REM
90 REM***********************
100 REM*CAVEOFTHEREAPER*
110 REM*BY:*
120 REM*STEVESHELTON*
130 REM***********************
140 REM
150 REMGAME(C)MAY-JUNE,1985
160 REM
170 RB=0:RD=15:FL=1:KF=1:F1=0:Q$=CHR$(34)
180 GOTO430
190 GOSUB3670:PRINT">";:GOSUB 5000:MV=MV+1:CM=0
195 IFLEFT$(C$,3)="USE"THENCM=2
200 IFLEFT$(C$,1)="L"ORLEFT$(C$,4)="LOOK"THENCM=7
210 IFLEFT$(C$,1)="S"THENCM=3
220 IFLEFT$(C$,1)="N"THENCM=4
230 IFLEFT$(C$,1)="E"THENCM=5
240 IFLEFT$(C$,1)="W"THENCM=6
250 IFLEFT$(C$,3)="GET"THENCM=9
260 IFLEFT$(C$,4)="QUIT"THENGOSUB4820
270 IFLEFT$(C$,9)="DROP DEAD"THENPRINT"[207]KAY.":GOTO3660
280 IFLEFT$(C$,4)="BULL"THENPRINT"[205]OO!":GOTO190
290 IFCM<>2THENGOTO390
300 UD=0:IFLEFT$(C$,8)="USE PICK"THENUD=1
310 AG=0:IFLEFT$(C$,14)="USE POGO STICK"ORLEFT$(C$,13)="USE POGOSTICK"THENAG=1
311 IFLEFT$(C$,14)="USE POGO-STICK"THENAG=1
312 IFAG=1THENUD=2:IFRM<>7ANDPS>0THENPRINT"[215][200][197][197][197][197]!!!!"
320 AG=0:IFLEFT$(C$,14)="USE FLASHLIGHT"ORLEFT$(C$,15)="USE FLASH LIGHT"THENAG=1
321 IFLEFT$(C$,15)="USE FLASH-LIGHT"THENAG=1
322 IFAG=1THENUD=6:GOSUB3780
330 IFLEFT$(C$,10)="USE SHIELD"THENUD=3
340 IFLEFT$(C$,13)="USE MEDALLION"THENUD=4
350 IFLEFT$(C$,9)="USE KNIFE"ORLEFT$(C$,10)="USE DAGGER"THENUD=5
360 AG=0:IFLEFT$(C$,14)="USE STALAGTITE"ORLEFT$(C$,8)="USE ROCK"THENAG=1
361 IFLEFT$(C$,23)="USE PIECE OF STALAGTITE"THENAG=1
362 IFAG=1THENUD=7
370 IFUD=0THENPRINT"[215]HAT?":GOTO190
371 IFRB=90THENPRINT"SUCCUMBED TO THE POISON.":GOTO3800
380 GOTO3470:REM
390 IFLEFT$(C$,1)="I"THENGOTO3570
400 IFC$=""THENGOTO190
410 IFCM=0THENPRINT"[211]AY WHAT?!?!?!?":GOTO190
420 RETURN
430 PRINT"[147][144]"SPC(11)"[195]AVE OF THE [210]EAPER":POKE53280,6:POKE53281,5
431 PRINT""SPC(12)"BY [211]TEVE [211]HELTON"
432 PRINT""SPC(4)"[195]-64 TRANSLATION BY [193]LAN [199]ARDNER"
433 PRINT"      [204][207][193][196][211][212][193][210][160]IS NOT PUBLIC DOMAIN."
434 PRINT"   [208]LEASE RESPECT THE AUTHOR'S RIGHTS."
439 PRINT" [196]O YOU NEED INSTRUCTIONS ([217]/[206])?"
440 POKE198,0:WAIT198,1:GETA$
445 IFA$="[217]"ORA$="Y"THENGOSUB3830:GOTO465
450 IFA$="[206]"ORA$="N"THENPRINT"[147]":GOSUB3760:GOTO465
460 GOTO440
465 POKE770,131:POKE771,164
466 POKE88,0:POKE89,192:POKE90,0:POKE91,192:POKE781,33:POKE782,0:SYS41964
467 POKE88,254:POKE89,255:POKE90,254:POKE91,255:POKE781,33:POKE782,0:SYS41964
468 POKE59639,6:POKE1,53
470 REM*LOCATION#1
480 RM=1:A$="---> [210][207][207][205] # 1 <---":GOSUB50
482 PRINT"  [201]T'S ALMOST TOO DARK TO SEE.":PRINT"[193] CERTAIN AMOUNT OF LIGHT IS COMING"
490 PRINT"THROUGH THE BLOCKED ENTRANCE, BUT":
492 PRINT"SHADOWS DOMINATE THE SCENE. [212]HERE ARE"
493 PRINT"EXITS IN EVERY DIRECTION BUT WEST, "
500 PRINT"WHERE THE ENTRANCE LIES."
510 GOSUB190:IFCM=2ANDUD<>6THENPRINT"[206]OTHING HAPPENS."
520 IFCM=9THENPRINT"[212]HIS ROOM IS EMPTY."
530 IFCM=7THEN470
540 IFCM=3THENLC=13:GOTO1980
550 IFCM=4THENLC=11:GOTO1750
560 IFCM=5THENLC=2:GOTO600
570 IFCM=7THENGOTO470
580 IFCM=6THENPRINT"[212]HE ENTRANCE IS STILL CAVED IN!"
590 GOTO510
600 REM*LOCATION#2
610 RM=2:A$="---> [210][207][207][205] # 2 <---":GOSUB50:
611 PRINT"  [212]HE MEAGER LIGHT FROM THE CAVE MOUTH"
612 PRINT"MAKES EERIE SHADOWS ON THE STALAGTITES,"
613 PRINT"WHICH SEEM READY TO FALL AT ANY MOMENT."
614 PRINT"  [212]HIS ROOM APPEARS TO BE EMPTY.  [212]HERE"
620 PRINT"ARE SIDE PASSAGES STRAIGHT AHEAD AND TO"
621 PRINT"THE SOUTH.  [212]HE CAVE ENTRANCE IS TO THE"
622 PRINT"WEST. [212]HE LIGHT DWINDLES TO THE EAST."
630 GOSUB190:IFCM=2ANDUD<>6THENPRINT"[206]O EFFECT."
640 IFCM=3THENLC=6:GOTO3060
650 IFCM=4THENPRINT"[217]OU CANNOT GO IN THAT DIRECTION."
660 IFCM=5THENLC=3:GOTO710
670 IFCM=6THENLC=1:GOTO470
680 IFCM=7THENGOTO600
690 IFCM=9THENPRINT"[212]HIS ROOM IS EMPTY."
700 GOTO630
710 REM*LOCATION#3
720 RM=3:PRINT:A$="---> [210][207][207][205] # 3 <---":GOSUB50
722 IFF1=0THENPRINT"[201]T'S TOO DARK TO SEE, BUT YOU HEAR A "
723 IFF1=0THENPRINT"SOFT RUSTLING SOUND.":GOTO740
730 PRINT"   [212]HIS ROOM CONTAINS RATTLESNAKES"
731 PRINT"MOVING SLUGGISHLY BECAUSE OF THE COOL"
732 PRINT"TEMPERATURE OF THE CAVERNS."
733 PRINT"  [212]HERE ARE ROOMS TO THE EAST AND WEST.":PRINT
740 GOSUB190:IFCM=2ANDUD=6THEN710
750 IFCM=2THENPRINT"[206]O EFFECT."
760 IFCM=3THENPRINT"[212]HERE IS NO DOOR THERE."
770 IFCM=5THENLC=4:GOTO840
780 IFCM=4THENPRINT"[217]OU CAN'T GO THAT DIRECTION."
790 IFCM=6THENLC=2:GOTO600
800 IFCM=7THENGOTO710
810 IFCM<>9ORRB<=0THEN820
811 PRINT"[217]OU REALLY [196][207] LEARN SLOWLY - ANOTHER "
812 PRINT"SNAKE HAS BITTEN YOU. [217]OU HAVE NO"
813 PRINT"CHANCE TO ESCAPE THE CAVERNS BEFORE"
814 PRINT"THE POISON BECOMES FATAL, SO [201]'LL SAVE"
815 PRINT"TIME AND JUST SAY THAT...":GOTO3660
820 IFCM=9THENPRINT"[193] RATTLESNAKE IS NOT A GOOD OBJECT TO"
821 IFCM=9THENPRINT"PICK UP. [217]OU LEARNED TOO SLOWLY - ONE"
822 IFCM=9THENPRINT"BITES YOU. [217]OU'D BETTER GET OUT OF"
823 IFCM=9THENPRINT"THESE CAVERNS VERY QUICKLY - THAT":PRINT"POISON ACTS FAST!":RB=1
830 GOTO740
840 REM*LOCATION#4
850 RM=4:A$="---> [210][207][207][205] # 4 <---":GOSUB50
851 IFF1<1THENPRINT"   [201]T'S TOO DARK TO SEE.":GOTO900
860 PRINT"  [212]HIS ROOM IS QUITE DAMP, AND THERE IS"
861 PRINT"A LOUD SOUND LIKE RUNNING WATER FOREVER"
862 PRINT" ECHOING IN THE DARK CHAMBER."
870 IFPS<1THENPRINT"  [198]OR SOME REASON, THERE IS A POGO"
872 IFPS<1THENPRINT"STICK ON THE FLOOR, BUT WHAT IT'S DOING"
873 IFPS<1THENPRINT"HERE, [201] COULDN'T TELL YOU."
880 IFPS>0THENPRINT"  [212]HIS ROOM IS EMPTY."
890 PRINT"  [212]HERE ARE EXITS TO THE EAST AND WEST.":PRINT
900 GOSUB190:IFCM=2ANDUD=6THENGOTO840
910 IFCM=2THENPRINT"[206]O EFFECT."
920 IFCM=9ANDPS<1THENPRINT"[215]ELL, YOU'VE GOT IT. [201] DON'T KNOW WHY"
921 IFCM=9ANDPS<1THENPRINT"YOU WANT IT, THOUGH!":PS=1:GOTO900
930 IFCM=9THENPRINT"[206]OTHING HERE."
940 IFCM=3ORCM=4THENPRINT"[217]OU CAN'T GO THAT WAY!"
950 IFCM=4THENPRINT"[217]OU CAN'T GO THAT WAY!"
960 IFCM=6THENLC=3:GOTO710
970 IFCM=5THENLC=5:GOTO1000
980 IFCM=7THEN840
990 GOTO900
1000 REM*LOCATION#5
1010 RM=5:A$="---> [210][207][207][205] # 5 <---":GOSUB50
1011 IFF1<1THENPRINT"[201]T'S TOO DARK TO SEE, BUT FROM THE"
1012 IFF1<1THENPRINT"SOUND OF IT, THERE MUST BE A PRETTY"
1013 IFF1<1THENPRINT"STRONG RIVER RUNNING THROUGH HERE.":GOTO1030
1020 PRINT"   [212]HIS ROOM WOULD MAKE A GOOD PAINTING."
1021 PRINT"[145][212]O THE EAST A PICTURESQUE WATERFALL"
1022 PRINT"GOES NEARLY 300 FEET INTO A ROARING"
1023 PRINT"RIVER.":PRINT"   [212]HERE IS AN EXIT TO THE WEST."
1030 GOSUB190:IFCM=4ORCM=3THENPRINT"[217]OU CAN'T GO THAT WAY."
1040 IFCM=5THENPRINT"[217]OU FALL INTO THE RIVER AND DROWN,"
1041 IFCM=5THENPRINT"WHICH MEANS THAT...":GOTO3660
1050 IFCM=6THENLC=4:GOTO840
1060 IFCM=2ANDF1=1ANDUD=6THEN1000
1070 IFCM=2THENPRINT"[206]OTHING HAPPENS."
1080 IFCM=9THENPRINT"[206]OTHING HERE."
1090 IFCM=7THENGOTO1000
1100 GOTO1030
1110 RM=7:A$="---> [210][207][207][205] # 7 <---":GOSUB50
1111 IFF1<1THENPRINT"  [201]T'S TOO DARK TO SEE.  [200]EY, IS THAT"
1112 IFF1<1THENPRINT"A LIGHT OFF TO THE EAST?!?!?!?":GOTO1140
1120 PRINT"  [212]HIS ROOM IS LONG, WITH TWO GORGES"
1121 PRINT"BETWEEN YOU AND THE EASTERN EXIT.  [212]HE"
1122 PRINT"FIRST IS ABOUT FIFTY FEET WIDE, BUT"
1123 PRINT"THE SECOND IS ONLY TEN FEET WIDE."
1124 PRINT"[212]HERE IS  A LIGHT TO THE EAST --"
1125 PRINT"ANOTHER WAY OUT"
1130 PRINT"MAYBE?  [212]HERE IS AN EXIT TO THE WEST."
1140 GOSUB190:IFCM=2ANDUD<>2ANDUD<>6THENPRINT"[206]OTHING HAPPENS."
1150 IFCM=2ANDUD=6THEN1110
1160 IFCM<>2ORUD<>2THEN1170
1161 PRINT"[217]OU BOUNCE HARD, AND GET ABOUT HALF-"
1162 PRINT"WAY ACROSS THE CANYON, BUT DON'T QUITE"
1164 PRINT"MAKE IT. [217]OU DON'T EVEN HIT BOTTOM FOR"
1165 PRINT"THREE DAYS.":GOTO3660
1170 IFCM=4ORCM=3THENPRINT"[217]OU CAN'T GO THAT WAY."
1180 IFCM=5THENPRINT"[217]OU FALL INTO A DEEP CANYON, SO DEEP"
1181 IFCM=5THENPRINT"YOU DON'T HIT BOTTOM FOR THREE DAYS.":GOTO3660
1190 IFCM=6THENLC=6:GOTO3060
1200 IFCM=7THENGOTO1110
1210 IFCM=9THENPRINT"[206]OTHING HERE."
1220 GOTO1140
1230 REM*LOCATION#8
1240 RM=8:A$="---> [210][207][207][205] # 8 <---":GOSUB50
1241 PRINT"   [212]HIS ROOM IS REALLY PART OF ROOM"
1242 PRINT"NUMBER SEVEN. [212]HE DIVIDING LINE IS THE"
1250 PRINT"FIFTY FOOT CANYON. [212]HERE IS DEFINITELY"
1251 PRINT"ANOTHER WAY OUT TO THE EAST, BUT THE"
1252 PRINT"TEN FOOT CANYON IS BETWEEN YOU AND IT"
1260 PRINT"  [201]T'S LIGHT ENOUGH TO SEE ON THIS"
1261 PRINT"SIDE OF THE ROOM WITHOUT YOUR FLASH-":PRINT"LIGHT."
1270 GOSUB190:IFCM=7THEN1230
1280 IFCM<>2ORUD<>2THEN1290
1281 PRINT"[217]OU MAKE A FEW PRACTICE BOUNCES TO PICK"
1282 PRINT"UP SPEED AND BOUNCE RIGHT OVER THE"
1283 PRINT"CANYON INTO THE ROOM ON THE EAST!!!":SE=SE+10:GOSUB40:LC=9:GOTO1460
1290 IFCM=2ANDUD<>6THENPRINT"[206]OTHING HAPPENS."
1300 IFCM=3THENPRINT"[212]HE DOOR CLOSED BEHIND YOU, REMEMBER?"
1310 IFCM=4THENPRINT"[217]OU CAN'T GO THAT WAY."
1320 IFCM=5ORCM=6THENPRINT"[217]OU FELL DOWN THE CANYON.":GOTO3660
1330 IFCM=9THENPRINT"[212]HIS ROOM IS EMPTY."
1340 GOTO1270
1350 REM*LOCATION#19
1360 RM=19:A$="---> [210][207][207][205] # 19 <---":GOSUB50
1361 IFF1<1THENPRINT"[201]T'S TOO DARK TO SEE.":GOTO1390
1370 PRINT"  [212]HIS ROOM IS FULL OF SNAKES, HISSING"
1371 PRINT"AND SLITHERING, BUT THESE ARE NOT YOUR"
1372 PRINT"ORDINARY SNAKES; THESE SNAKES ARE PIT-"
1373 PRINT"VIPERS WITH PTERODACTYL-LIKE WINGS."
1374 PRINT"[201]N A CORNER ARE SOME MEGA-SIZED SNAKE":PRINT"EGGS."
1380 PRINT"  [212]HERE IS AN EXIT TO THE SOUTH."
1390 GOSUB190:IFCM=2ANDUD=6THEN1350
1400 IFCM=2THENPRINT"[212]HE SNAKES ARE DETERMINED TO IGNORE YOU."
1410 IFCM=9THENPRINT"[217]OU PICK UP ONE OF THE SNAKES AND HE"
1411 IFCM=9THENPRINT"BITES YOU. [212]HE POISON ACTS INSTANTLY.":GOTO3660
1420 IFCM=7THEN1350
1430 IFCM=3THENLC=16:GOTO2500
1440 IFCM=4ORCM=5ORCM=6THENPRINT"[201] DON'T THINK THAT'S SUCH A GOOD IDEA."
1450 GOTO1390
1460 REM*LOCATION#9
1470 RM=9:A$="---> [210][207][207][205] # 9 <---":GOSUB50
1471 PRINT"  [193]T LONG LAST! [212]HE OTHER OPENING!"
1472 PRINT"[201]T'S NOT AS BIG AS THE MAIN ONE, BUT"
1474 PRINT"IT'S BIG ENOUGH FOR YOU TO WALK OUT OF!"
1475 PRINT"[200]EY, IT'S NOT EVEN THAT FAR FROM YOUR":PRINT"CAMP!"
1480 IFRB>0ANDRB<89THENPRINT"[212]HAT WILL BE HELPFUL IN HEALING THAT":PRINT"BITE!"
1490 PRINT"  [212]HE LIGHT WHICH IS COMING IN FROM THE"
1491 PRINT"EXIT ON THE SOUTH HURTS YOUR EYES,"
1492 PRINT"MAKING YOU BLINK. [212]HERE IS ALSO A DOOR"
1493 PRINT"LEADING BACK INTO THE CAVE TO THE WEST."
1500 GOSUB190:IFCM=4ORCM=5THENPRINT"[193]RE YOU DELIRIOUS? [212]HERE'S NO DOOR":PRINT"THERE!"
1510 IFCM=3THENSE=SE+10:GOSUB40:GOTO4050
1520 IFCM=2ANDUD<>6THENPRINT"[206]O EFFECT."
1530 IFCM=9THENPRINT"  [212]HIS ROOM IS EMPTY. [212]OO BAD SOME OF"
1531 IFCM=9THENPRINT"THOSE SECOND LEVEL ROOMS WEREN'T!"
1540 IFCM=7THEN1460
1550 IFCM=6THENPRINT"  [217]OU FORGOT ABOUT THE CANYON. [217]OU FALL INTO IT.":GOTO3660
1560 GOTO1500
1570 REM*LOCATION#10
1580 RM=10:A$="---> [210][207][207][205] # 10 <---":GOSUB50
1581 IFF1<>1THENPRINT"  [201]T'S TOO DARK TO SEE.":GOTO1630
1590 PRINT"  [212]HIS SECRET ROOM IS FULL OF STATUES."
1591 IFD(1)=1ANDD(2)=1THENPRINT"  [212]HERE ARE SECRET DOORS OPEN ON BOTH"
1592 IFD(1)=1ANDD(2)=1THENPRINT"THE EAST AND WEST."
1600 IFD(1)=1ANDD(2)<>1THENPRINT"  [212]HERE IS A SECRET DOOR OPEN TO THE    EAST."
1610 IFD(2)=1ANDD(1)<>1THENPRINT"  [212]HERE IS A SECRET DOOR TO THE WEST."
1620 PRINT"  [194]ESIDES THAT, THERE IS A DOOR TO THE  SOUTH."
1621 IFMD<1THENPRINT"  [212]HERE IS A MEDALLION WITH A PIECE OF"
1622 IFMD<1THENPRINT"QUARTZ, SHAPED LIKE A PYRAMID, LAYING"
1623 IFMD<1THENPRINT"ON THE FLOOR. [212]HE QUARTZ IS SURROUNDED"
1624 IFMD<1THENPRINT"BY A REFLECTIVE MATERIAL, LIKE GLASS."
1630 GOSUB190:IFCM=7THEN1570
1640 IFCM=5ANDD(1)=1THENLC=6:GOTO3060
1650 IFCM=5THENPRINT"[212]HERE'S A WALL THERE."
1660 IFCM=3THENLC=14:GOTO2130
1670 IFCM=4THENPRINT"[211]ORRY, BUT THERE'S A WALL THERE!"
1680 IFCM=6ANDD(2)=1THENLC=13:GOTO1980
1690 IFCM=6THENPRINT"[212]HERE'S A WALL THERE!"
1700 IFCM=9ANDMD<1THENPRINT"[205]EDALLION TAKEN. [200]MM, MATCHES YOUR"
1701 IFCM=9ANDMD<1THENPRINT"CLOTHES!!!":MD=1:GOTO1630
1710 IFCM=9ANDMD>0THENPRINT"[217]OU CAN'T GET THE STATUES."
1720 IFCM=2ANDUD=6THEN1570
1730 IFCM=2THENPRINT"[206]OTHING HAPPENS!"
1740 GOTO1630
1750 REM*LOCATION#11
1760 RM=11:A$="---> [210][207][207][205] # 11 <---":GOSUB50
1761 PRINT"   [212]HIS ROOM, PARTIALLY LIT FROM THE "
1762 PRINT"ENTRANCE ROOM, IS MOSTLY BARREN. [212]HE"
1763 PRINT"ONLY THING IN HERE ARE STALAGMITES THAT"
1764 PRINT"POKE UP FROM THE GROUND. [212]HERE ARE"
1765 PRINT"EXITS SOUTH AND EAST."
1770 GOSUB190:IFCM=9THENPRINT"[206]OTHING HERE."
1780 IFCM=2ANDUD<>6THENPRINT"[206]O EFFECT."
1790 IFCM=4ORCM=6THENPRINT"[212]HERE AREN'T ANY DOORS THERE."
1800 IFCM=3THENLC=1:GOTO470
1810 IFCM=5THENLC=12:GOTO1840
1820 IFCM=7THEN1750
1830 GOTO1770
1840 REM*LOCATION#12
1850 RM=12:A$="---> [210][207][207][205] # 12 <---":GOSUB50:IFPK=0THENPK=-1
1860 IFF1<1THENPRINT"  [201]T'S TOO DARK TO SEE.":GOTO1900
1870 PRINT"   [201]N THE CENTER OF THIS ROOM ARE TWO"
1871 PRINT"HUMAN SKELETONS. [198]ROM THE LOOKS OF THE"
1872 PRINT"ITEMS AROUND THEM, THEY WERE MINERS OR"
1873 PRINT"PROSPECTORS.";
1874 IFPK<0THENPRINT" [205]OST OF THE ITEMS HAVE"
1875 IFPK<0THENPRINT"ROTTED, BUT THERE'S A GOOD PICK HERE."
1880 IFPK>0THENPRINT" [193]LL OF THE ITEMS ARE WELL":PRINT"BEYOND THEIR TIME, HOWEVER."
1890 PRINT"   [212]HERE IS AN EXIT TO THE WEST."
1900 GOSUB190:IFCM=7THEN1840
1910 IFCM=2ANDUD=6THEN1840
1920 IFCM=2THENPRINT"[206]O EFFECT."
1930 IFCM=9ANDPK<1THENPK=1:PRINT"[217]OU NOW HAVE THE PICK."
1940 IFCM=9ANDPK>0THENPRINT"  [197]VERYTHING IN HERE'S EITHER ROTTED OR"
1941 IFCM=9ANDPK>0THENPRINT"RUSTED BEYOND ANY TYPE OF USE."
1950 IFCM=4ORCM=5ORCM=3THENPRINT"[217]OU CAN'T GO THAT WAY."
1960 IFCM=6THENLC=11:GOTO1750
1970 GOTO1900
1980 REM*LOCATION#13
1990 RM=13:A$="---> [210][207][207][205] # 13 <---":GOSUB50
1991 IFF1<1THENPRINT"  [201]T'S TOO DARK TO SEE.":GOTO2020
2000 PRINT"   [212]HIS ROOM IS DARK.  [204]IGHT FILTERS"
2001 PRINT"IN FROM THE ENTRANCE, BUT NOT ENOUGH"
2002 PRINT"TO    SEE BY. [212]HERE IS A STATUE OF AN"
2003 PRINT"[201]NDIAN  BRAVE ON THE EAST WALL."
2004 IFD(2)<>1THENPRINT"  [212]HERE IS AN EXIT TO THE NORTH."
2010 IFD(2)=1THENPRINT"  [212]HERE ARE EXITS TO THE EAST AND NORTH."
2020 GOSUB190
2021 IFCM=9ANDD(2)=1THENPRINT"  [217]OU PULL ON THE STATUE, AND THE"
2022 IFCM=9ANDD(2)=1THENPRINT"SECRET DOOR CLOSES. [193]WESOME, EH?":D(2)=2
2030 IFCM=9ANDD(2)=2THENPRINT"   [217]OU PULL ON THE STATUE AND THE"
2031 IFCM=9ANDD(2)=2THENPRINT"SECRET DOOR SLIDES BACK OPEN.":D(2)=1
2040 IFCM=9ANDD(2)=0THENPRINT"  [217]OU CAN'T LIFT THE STATUE, BUT WHEN"
2041 IFCM=9ANDD(2)=0THENPRINT"YOU PULLED ON IT, IT OPENED A SECRET"
2042 IFCM=9ANDD(2)=0THENPRINT"DOOR TO THE EAST.":D(2)=1:SE=SE+10:GOSUB40
2050 IFCM=9THEN2060
2060 IFCM=2ANDUD=6THEN1980
2070 IFCM=2THENPRINT"[206]O EFFECT."
2080 IFD(2)<>1ANDCM=5ORCM=3ORCM=6THENPRINT"[217]OU RAN INTO A WALL."
2090 IFD(2)=1ANDCM=5THENLC=10:GOTO1570
2100 IFCM=4THENLC=1:GOTO470
2110 IFCM=7THEN1980
2120 GOTO2020
2130 REM*LOCATION#14
2140 RM=14:A$="---> [210][207][207][205] # 14 <---":GOSUB50
2141 IFF1<1THENPRINT"[201]T'S TOO DARK TO SEE.":GOTO2180
2150 IFSD>0THENPRINT"   [212]HIS ROOM IS EMPTY. [193] TRAP DOOR"
2151 IFSD>0THENPRINT"LEADING TO THE SECOND (LOWER) LEVEL OF"
2152 IFSD>0THENPRINT"THE CAVE IS ON THE SOUTH.":GOTO2170
2160 PRINT"   [212]HIS ROOM IS ROUGHLY SQUARE SHAPED,"
2161 PRINT"AND EMPTY EXCEPT FOR A SHIELD IN THE"
2162 PRINT"VERY MIDDLE OF THE ROOM."
2170 PRINT"   [212]HERE IS AN EXIT TO THE NORTH."
2180 GOSUB190:IFSD>0THEN2300
2190 IFCM=7THEN2130
2200 IFCM=2ANDUD=6THEN2130
2210 IFCM=5ORCM=6THENPRINT"[217]OU RAN INTO THE WALL."
2220 IFCM=9ANDF1<1THENPRINT"[217]OU STUMBLE AROUND IN THE DARK, AND"
2221 IFCM=9ANDF1<1THENPRINT"YOUR HAND CLOSES ON SOMETHING. [212]HEN"
2222 IFCM=9ANDF1<1THENPRINT"YOU FEEL YOURSELF FALLING. [217]OU LAND "
2223 IFCM=9ANDF1<1THENPRINT"SOFTLY, ON SOME DIRT.":SD=1:LC=15:GOTO2380
2230 IFCM=4THENLC=10:GOTO1570
2240 IFCM=3ANDF1=1THENPRINT"[217]OU FALL DOWN A CAREFULLY HIDDEN TRAP"
2241 IFCM=3ANDF1=1THENPRINT"BROKEN BY A PILE OF SOFT DIRT, BUT"
2242 IFCM=3ANDF1=1THENPRINT"YOUR FLASHLIGHT GOES OUT.":F1=0:LC=15:GOTO2380
2250 IFCM=9THENPRINT"[217]OU GRAB THE SHIELD, AND A TRAP DOOR"
2251 IFCM=9THENPRINT"OPENS UNDERNEATH. [217]OUR FALL IS BROKEN"
2252 IFCM=9THENPRINT"BY A PILE OF SOFT DIRT. [217]OUR FLASHLIGHT"
2253 IFCM=9THENPRINT"HAS GONE OUT.":F1=0:SD=1:LC=15:GOTO2380
2260 IFCM=2THENPRINT"[206]O EFFECT."
2270 IFCM=3ANDF1<1THENPRINT"[217]OU MOVE SOUTH AND THE FLOOR OPENS UP"
2271 IFCM=3ANDF1<1THENPRINT"BENEATH YOU. [217]OU FIND YOURSELF FALLING."
2272 IFCM=3ANDF1<1THENPRINT"[217]OUR FALL IS BROKEN BY A PILE OF SOFT"
2273 IFCM=3ANDF1<1THENPRINT"DIRT. [211]OMETHING LANDS BESIDE YOU, AND"
2280 IFCM=3ANDF1<1THENPRINT"WITHOUT THINKING YOU PICK IT UP.":SD=1:LC=15:GOTO2380
2290 GOTO2180
2300 IFCM=9THENPRINT"[206]OTHING HERE.":PRINT
2310 IFCM=7ORCM=9ANDUD=6THEN2130
2320 IFCM=4THENLC=10:GOTO1570
2330 IFCM=5ORCM=6THENPRINT"[217]OU RUN INTO A WALL.":PRINT
2340 IFCM=3THENPRINT"[194]RAVELY, YOU JUMP DOWN TO THE SECOND"
2341 IFCM=3THENPRINT"LEVEL.":LC=15:PRINT:GOTO2380
2350 IFCM=2ANDUD=2THENPRINT"[194]ANZAI!!!":LC=15:GOTO2380
2360 IFCM=2ANDUD<>6THENPRINT"[206]O EFFECT."
2370 GOTO2180
2380 REM*LOCATION#15
2390 RM=15:IFQW=0THENSE=SE+10:GOSUB40:QW=1
2400 A$="---> [210][207][207][205] # 15 <---":GOSUB50
2401 IFF1<1THENPRINT"[201]T'S TOO DARK TO SEE.":GOTO2420
2410 PRINT"   [212]HIS ROOM IS APPARENTLY THE ENTRANCE"
2411 PRINT"TO THE LOWER LEVEL OF THE CAVE. [212]HE"
2412 PRINT"PILE OF SOIL WHICH BROKE YOUR FALL IS"
2413 PRINT"DIRECTLY IN THE CENTER OF THE ROOM."
2414 PRINT"   [212]HERE IS AN EXIT TO THE EAST."
2420 GOSUB190:IFCM=9THENPRINT"[206]OTHING HERE."
2430 IFCM=2ANDUD=6THEN2380
2440 IFCM=2ANDUD=2THENPRINT"[217]OU BOUNCE HARD AND JUMP BACK TO LEVEL"
2441 IFCM=2ANDUD=2THENPRINT"ONE.":LC=14:GOTO2130
2450 IFCM=4ORCM=3ORCM=6THENPRINT"[217]OU CAN'T GO THAT WAY."
2460 IFCM=5THENLC=16:GOTO2500
2470 IFCM=7THEN2380
2480 IFCM=2THENPRINT"[206]O EFFECT."
2490 GOTO2420
2500 REM*LOCATION#16
2510 RM=16:A$="---> [210][207][207][205] # 16 <---":GOSUB50:
2511 IFF1<1THENPRINT"[201]T'S TOO DARK TO SEE.":GOTO2530
2520 PRINT"   [212]HIS IS A FOUR-WAY INTERSECTION."
2530 GOSUB190:IFCM=4THENLC=19:GOTO1350
2540 IFCM=5THENLC=18:GOTO2920
2550 IFCM=6THENLC=15:GOTO2380
2560 IFCM=3THENLC=17:GOTO2620
2570 IFCM=9THENPRINT"[206]OTHING HERE."
2580 IFCM=2ANDUD=6THEN2500
2590 IFCM=2THENPRINT"[206]OTHING HAPPENS."
2600 IFCM=7THEN2500
2610 GOTO2530
2620 REM*LOCATION#17
2630 RM=17:A$="---> [210][207][207][205] # 17 <---":GOSUB50
2631 IFF1<1THENPRINT"[201]T'S TOO DARK TO SEE.":GOTO2660
2640 PRINT"   [212]HIS ROOM IS FULL OF GIGANTIC WORMS,"
2641 PRINT"EACH AT LEAST A FOOT IN DIAMETER. [212]HE"
2642 PRINT"SHORTEST OF THESE IS NEARLY FIVE FEET"
2643 PRINT"LONG. [207]THER WORMS ARE HALF BURIED IN"
2644 PRINT"HARD DIRT FLOOR, BURROWING INTO THE ":PRINT"GROUND."
2650 PRINT"   [212]HERE ARE EXITS TO THE NORTH AND":PRINT"EAST."
2651 PRINT"   [193]NYONE WANT TO GO FISHING???"
2660 GOSUB190:IFCM=2ANDUD=6THEN2620
2670 IFCM=2THENPRINT"[206]O EFFECT."
2680 IFCM=9THENPRINT"[193]RE YOU TRYING TO HURT YOURSELF? [217]OU"
2681 IFCM=9THENPRINT"CAN'T EVEN [194][213][196][199][197] ONE OF THOSE":PRINT"FISHWORMS!"
2690 IFCM=4THENLC=16:GOTO2500
2700 IFCM=5THENLC=20:GOTO2740
2710 IFCM=3ORCM=6THENPRINT"[217]OU CAN'T GO THAT WAY."
2720 IFCM=7THENGOTO2620
2730 GOTO2660
2740 REM*LOCATION#20
2750 RM=20:A$="---> [210][207][207][205] # 20 <---":GOSUB50
2751 IFF1<1THENPRINT"  [201]T'S TOO DARK TO SEE.":GOTO2790
2760 PRINT"  [212]HIS ROOM IS FULL OF A GREEN SLIME."
2761 PRINT"[201]T COVERS THE WALLS, THE FLOOR, AND"
2762 PRINT"DRIPS FROM THE CEILING. [212]HERE IS A"
2763 PRINT"SLOT, SHAPED LIKE A TRIANGLE WITH A WIDE"
2764 PRINT"[145]BOTTOM.":IFMD=2THENPRINT"[217]OUR MEDALLION IS LYING UNDER IT."
2770 PRINT"  [212]HERE IS ANOTHER SLOT JUST LIKE IT ON"
2771 PRINT"THE EAST WALL.":IFD(3)=0THENPRINT"  [212]HERE ARE EXITS TO THE SOUTH AND"
2772 IFD(3)=0THENPRINT"WEST."
2780 IFD(3)=1THENPRINT"  [212]HERE ARE DOORS IN EVERY DIRECTION":PRINT"BUT NORTH."
2790 GOSUB190:IFCM=2ANDUD=6THEN2740
2800 IFCM=3THENLC=21:GOTO3210
2810 IFCM=4THENPRINT"[217]OU RAN INTO THE SLIME. [201][195][203]!"
2820 IFCM=7THEN2740
2830 IFCM=6THENLC=17:GOTO2620
2840 IFCM=5ANDD(3)=1THENLC=22:GOTO4530
2850 IFCM=5THENPRINT"[212]HERE'S A WALL THERE."
2860 IFCM=2ANDUD=4THENPRINT"[217]OU PUT THE MEDALLION INTO THE SLOT ON"
2861 IFCM=2ANDUD=4THENPRINT"THE EASTERN WALL AND A SECRET DOOR"
2862 IFCM=2ANDUD=4THENPRINT"OPENS.":D(3)=1:MD=3:SE=SE+10:GOSUB40:P(1)=1:GOTO2790
2870 IFCM=2ANDUD=4ANDP(1)=1THENPRINT"[206]O EFFECT.":GOTO2790
2880 IFCM=2ANDUD<>6THENPRINT"[206]O EFFECT."
2890 IFCM=9ANDMD<>2THENPRINT"[206]OTHING HERE."
2900 IFCM=9ANDMD=2THENPRINT"[205]EDALLION TAKEN.":MD=1
2910 PRINT:GOTO2790
2920 REM*LOCATION#18
2930 RM=18:A$="---> [210][207][207][205] # 18 <---":GOSUB50
2931 IFF1<1THENPRINT"[201]T'S TOO DARK TO SEE.":GOTO2970
2940 IFM(1)=1THENPRINT"   [212]HIS ROOM IS EMPTY. [212]HERE IS AN EXIT"
2941 IFM(1)=1THENPRINT"TO THE WEST.":GOTO2970
2950 PRINT"   [212]HIS ROOM IS EMPTY AND THERE IS AN"
2951 PRINT"EXIT TO THE WEST. [212]HERE IS A SLOT"
2952 PRINT"SHAPED LIKE A TRIANGLE WITH A WIDE"
2953 PRINT"BASE ON THE SOUTH WALL. [207][200] [206][207]!!! [212][200][197]"
2954 PRINT"[215][193][204][204][211] [193][210][197] [205][207][214][201][206][199]!!!! [212]HE EXIT IS"
2955 PRINT"ALREADY COVERED, AND THE WALLS ARE"
2960 PRINT"MOVING SO FAST THAT IF YOU DON'T DO"
2961 PRINT"SOMETHING SOON, YOU'LL MAKE A GOOD":PRINT"MANHOLE COVER."
2970 GOSUB190:IFCM=2ANDUD=6THEN2920
2980 IFCM=2ANDUD=4ANDM(1)<1THENPRINT"[217]OU SLIP THE MEDALLION INTO THE SLOT"
2981 IFCM=2ANDUD=4ANDM(1)<1THENPRINT"AND THE WALLS REVERSE THEIR MOTION."
2982 IFCM=2ANDUD=4ANDM(1)<1THENMD=2:SE=SE+10:GOSUB40:M(1)=1
2990 IFM(1)<1THENPRINT"[217]OU GET SQUISHED BY THE MOVING WALLS."
2991 IFM(1)<1THENPRINT"[201] HATED TO BREAK IT TO YOU LIKE THAT,"
2992 IFM(1)<1THENPRINT"BUT SUCH IS LIFE.":GOTO3660
3000 IFCM=3ORCM=4ORCM=5THENPRINT"[217]OU CAN'T GO THAT WAY."
3010 IFCM=6THENLC=16:GOTO2500
3020 IFCM=9THENPRINT"[206]OTHING HERE."
3030 IFCM=2ANDUD<>4THENPRINT"[206]O EFFECT."
3040 IFCM=7THEN2920
3050 GOTO2970
3060 REM*LOCATION#6
3070 RM=6:A$="---> [210][207][207][205] # 6 <---":GOSUB50
3071 PRINT"  [212]HERE IS BARELY ENOUGH LIGHT TO SEE"
3072 PRINT"BY IN HERE. [215]HAT YOU FIRST THINK ARE"
3080 PRINT"SMALL STALAGTITES TURNS OUT TO BE BATS,"
3081 PRINT"THOUSANDS OF THEM, HANGING ON THE"
3082 PRINT"CEILING. [212]HE FLOOR IS COVERED WITH BAT"
3090 PRINT"DROPPINGS AND BEETLES, WHICH SWARM"
3091 PRINT"OVER YOUR HIKING BOOTS.  [201]N THE CORNER"
3092 PRINT"THERE IS A STATUE OF AN [201]NDIAN BRAVE."
3093 PRINT"  [212]HERE ARE EXITS TO THE EAST";
3094 IFD(1)=1THENPRINT", WEST, AND NORTH.":GOTO3110
3100 PRINT" AND NORTH."
3110 GOSUB190:IFCM=4THENLC=2:GOTO600
3120 IFCM=5THENLC=7:GOTO1110
3130 IFCM=6ANDD(1)=1THENLC=10:GOTO1570
3140 IFCM=6ORCM=3THENPRINT"[217]OU CAN'T GO THAT WAY."
3150 IFCM=2ANDUD<>6THENPRINT"[206]O EFFECT."
3160 IFCM=9ANDD(1)=1THENPRINT"[212]HE SECRET DOOR CLOSES. [206]EAT, HUH?":D(1)=2:GOTO3110
3170 IFCM=9ANDD(1)=2THENPRINT"[217]OU PULL ON THE STATUE AND REOPEN THE"
3171 IFCM=9ANDD(1)=2THENPRINT"SECRET DOOR.":D(1)=1
3180 IFCM=7THEN3060
3190 IFCM=9ANDD(1)<1THENPRINT"[217]OU CAN'T LIFT THE STATUE, BUT WHEN YOU"
3191 IFCM=9ANDD(1)<1THENPRINT"PULLED HIS ARM YOU OPENED A SECRET DOOR"
3192 IFCM=9ANDD(1)<1THENPRINT"ON THE WEST WALL!":D(1)=1:SE=SE+10:GOSUB40
3200 GOTO3110
3210 REMLOCATION#21
3220 RM=21:A$="---> [210][207][207][205] # 21 <---":GOSUB50
3221 IFF1<1THENPRINT"[201]T'S TOO DARK TO SEE.":GOTO3300
3230 IFRR=0THENPRINT"   [217]OU WALK INTO THIS CHAMBER - AND"
3231 IFRR=0THENPRINT"RECOIL IN HORROR. [201]T'S HERE - THE "
3232 IFRR=0THENPRINT"[210]EAPER, JUST LIKE IN THE STORY. [201]T'S"
3233 IFRR=0THENPRINT"TWENTY FEET LONG WITH TWO FOOT FANGS."
3240 IFRR=0THENPRINT"[201]TS EYES ARE A FIERY RED, AND ITS"
3241 IFRR=0THENPRINT"APPARENTLY PREHENSILE TAIL LASHES BACK"
3242 IFRR=0THENPRINT"AND FORTH MADLY. [201]TS LARGE REPTILLIAN"
3243 IFRR=0THENPRINT"WINGS BEAT SLOWLY, CREATING A STRONG"
3244 IFRR=0THENPRINT"AIR CURRENT. [212]HEN, IT ATTACKS! [201]TS"
3250 IFRR=0THENPRINT"TAIL LASHES OUT, WRAPPING AROUND YOUR"
3251 IFRR=0THENPRINT"BODY AND LIFTING YOU UP IN FRONT OF ITS"
3252 IFRR=0THENPRINT"VILE MOUTH.  [208]OISON DRIPS FROM ITS"
3253 IFRR=0THENPRINT"FANGS.":AK=1
3260 IFRD<10ANDRD>0THENPRINT"[212]HE [210]EAPER IS RETREATING."
3270 IFRD<1THENPRINT"  [212]HE [210]EAPER LIES DEAD ON THE FLOOR."
3280 IFRD>9ANDRR>0THEN4470
3290 RR=1:PRINT"  [212]HERE IS AN EXIT TO THE NORTH."
3300 GOSUB190:IFRD>0ANDRH<>1THENRD=RD+1
3310 IFRD<1THENAK=0
3320 IFRD=10THEN4470
3330 IFCM=2ANDUD=6THEN3210
3340 IFCM=7THEN3210
3350 IFCM=2ANDAK=1THEN4140
3360 IFCM=2ANDAK=2THEN4180
3370 IFCM=2ANDAK=3THEN4240
3380 IFCM=2ANDAK=4THEN4300
3390 IFCM=9ANDRD<10THENPRINT"[206]OTHING HERE."
3400 IFCM=9ANDRD>9THENPRINT"  [194]EFORE YOU CAN GET [193][206][217][212][200][201][206][199], THE [210]EAPER"
3401 IFCM=9ANDRD>9THENPRINT"SWALLOWS YOU.":GOTO3660
3410 IFCM<7ANDCM>2ANDRD>9THENPRINT"  [217]OU AREN'T GOING ANYWHERE - THE"
3411 IFCM<7ANDCM>2ANDRD>9THENPRINT"[210]EAPER SCOOPS YOU UP AND EATS YOU"
3412 IFCM<7ANDCM>2ANDRD>9THENPRINT"WHILE YOU TRY TO GET AWAY.":GOTO3660
3420 IFCM=4ANDRD<10THENLC=20:GOTO2740
3430 IFCM=3ORCM=5ORCM=6ANDRD<10THENPRINT"[217]OU CAN'T GO THAT WAY."
3440 IFCM=2ANDRD>0THEN4320
3450 IFCM=2ANDRD<1THENPRINT"[206]O EFFECT."
3460 GOTO3300
3470 REM*ITEMINPOSSESION?
3480 T=0:IFUD=1ANDPK<>1THENT=1
3490 IFUD=2ANDPS<>1THENT=1
3500 IFUD=3ANDSD<>1THENT=1
3510 IFUD=4ANDMD<>1THENT=1
3520 IFUD=5ANDKF<>1THENT=1
3530 IFUD=6ANDFL<>1THENT=1
3540 IFUD=7ANDST<>1THENT=1
3550 IFT=1THENPRINT"[217]OU DO NOT HAVE THAT ITEM.":GOTO190
3560 GOTO420
3570 REM*INVENTORY
3580 PRINT"[217]OU ARE CARRYING:":IFPK=1THENPRINT"[208]ICK"
3590 IFPS=1THENPRINT"[208]OGO [211]TICK"
3600 IFSD=1THENPRINT"[211]HIELD"
3610 IFMD=1THENPRINT"[205]EDALLION"
3620 IFKF=1THENPRINT"[196]AGGER"
3630 IFFL=1THENPRINT"[198]LASHLIGHT"
3640 IFST=7THENPRINT"[208]IECE OF STALAGTITE (ROCK)"
3650 GOTO190
3660 PRINT:PRINT"[217]OU ARE DEAD.":PRINT"[217][207][213][210] [198][201][206][193][204] [211][195][207][210][197] [201][211]";SE:GOTO4840
3670 PRINTVT$(24);:IFRB>0THENRB=RB+1
3680 IFRB=50THENPRINT"[212]HE POISON FROM THE SNAKE IS STARTING"
3681 IFRB=50THENPRINT"AFFECT YOU - YOU'RE GETTING WEAK."
3690 IFMV=100THENPRINT"[217]OUR FLASHLIGHT WENT OUT.":F1=0
3700 IFRB=90THENPRINT"[217]OU DIDN'T GET OUT IN TIME - YOU HAVE"
3701 IFRB=90THENPRINT"SUCCUMBED TO THE POISON.":GOTO3660
3710 IFMV<1THENPRINTVT$(15):RETURN
3720 IFMV>0THENPRINTVT$(23):RETURN
3730 REM
3740 REM
3750 REM
3760 V=PEEK(214):IFV<5THENV=7
3761 PRINT""HT$(11)"[195][193][214][197] [207][198] [212][200][197] [210][197][193][208][197][210]":PRINT"[211][195][207][210][197]:";SE;"[207][213][212] [207][198] 100 [208][207][211][211][201][194][204][197].
3770 [153]"LEN(null)(null)(null)ATN(null)STR$(null):":[153]"((null))(null)(null)(null)LEFT$",,"((null))(null)(null)(null)LEFT$","CHR$VAL(null)"
3771 [153]"(VAL)ATN(null)(null)",,"((null))VAL(null)(null)","(null)(null)VAL":[153]"(RIGHT$)(null)(null)VAL(null)(null)(null)(null)(null)","(null)(null)RIGHT$(null)","((null))(null)(null)(null)          "
3772 [153]"ON========================================ON":[153]VT$(V);:[142]
3780 [139]F1[178]1[167]F1[178]0:[153]"ASCLASHLIGHT IS OFF.":[142]
3790 AG[178]0:[139]F1[178]0[167]F1[178]1:AG[178]1:[153]"ASCLASHLIGHT IS ON. (null)O TURN IT OFF TYPE"
3791 [139]AG[178]1[167][153]"(null)(null)VAL ASC(null)ATN(null)LEFT$(null)RIGHT$CHR$LEFT$(null).":[142]
3800 [137]3660
3810 [143]
3820 [142]
3830 [153]"LOAD"[163]11)"LENATN(null)VAL (null)ASC (null)LEFT$VAL (null)VALATN(null)VAL(null)"
3831 [153]"  (LEN) LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) 1986 PEEK(null) (null)(null)VAL(null)VAL (null)LEFT$VAL(null)(null)(null)(null)"
3832 [153]"========================================"
3840 [153]"   (null)HILE ON VACATION IN ATNRIZONA, YOU"
3841 [153]"HEAR A LEGEND ABOUT THE MOUNTAIN YOU"
3842 [153]"HAVE CAMPED ON. (null)OMEWHERE ON IT THERE IS";
3850 [153]"A CAVE KNOWN AS (null)EAPER'S LENAVE.  RIGHT$N THIS"
3851 [153]"CAVE A REMOTE AND MYSTERIOUS TRIBE OF"
3852 [153]"RIGHT$NDIANS CALLED THE LEFT$ICCUPOOS WORSHIPPED"
3853 [153]"A CREATURE THEY CALLED "[199](34)"MID$AKETH"[199](34)
3860 [153]"THAT WAS HALF SNAKE AND HALF BIRD."
3861 [153]"(null)HE WHITE SETTLERS CALLED THIS CREATURE"
3870 [153]"THE (null)EAPER BECAUSE NOBODY WHO WENT INTO"
3871 [153]"THE CAVE EVER CAME OUT.":[153]:[153]"  (null)OU DECIDE TO FIND THE CAVE.":[141]30
3880 [153]"LOAD"[163]11)"LENATN(null)VAL (null)ASC (null)LEFT$VAL (null)VALATN(null)VAL(null)"
3881 [153]"  (LEN) LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) 1986 PEEK(null) (null)(null)VAL(null)VAL (null)LEFT$VAL(null)(null)(null)(null)"
3882 [153]"========================================"
3883 [153]"  ATNRMED WITH YOUR FLASHLIGHT (THE"
3884 [153]"BATTERIES ARE GETTING LOW, HOWEVER),"
3885 [153]"AN RIGHT$NDIAN DAGGER YOU BOUGHT AT A"
3890 [153]"NOVELTY STORE, AND YOUR BACKPACK, YOU"
3891 [153]"SET OUT TO FIND THE CAVE. ATNFTER TWO"
3892 [153]"HOURS OF WANDERING AROUND THE AREA,"
3900 [153]"YOU FIND A CAVE WITH A PAIR OF RIGHT$NDIAN"
3901 [153]"STATUES AND AN ANCIENT, BUT LEGIBLE,":[153]"SIGN SAYING:":[153]
3910 [153]"    (null)VALATN(null)VAL(null)'(null) LENATN(null)VAL - STR$(null) (null)(null)(null) VAL(null)(null)VAL(null)":[153]:[153]
3911 [153]"  ATNFTER A MOMENT'S HESITATION, YOU":[153]"ENTER THE CAVE.":[141]30
3920 [153]"LOAD"[163]11)"LENATN(null)VAL (null)ASC (null)LEFT$VAL (null)VALATN(null)VAL(null)"
3921 [153]"  (LEN) LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) 1986 PEEK(null) (null)(null)VAL(null)VAL (null)LEFT$VAL(null)(null)(null)(null)"
3922 [153]"========================================"
3923 [153]"  MID$UST AS YOU START TO TURN YOUR"
3924 [153]"FLASHLIGHT ON TO SEE BETTER, YOU HEAR A"
3925 [153]"LOUD RUMBLING NOISE. (null)OU TURN TOWARD THE";
3930 [153]"ENTRANCE TO SEE ROCKS CRASHING PAST."
3931 [153]:[153]"  ATNN AVALANCHE HAS SEALED THE ENTRANCE  TO THE CAVE!!!"
3940 [153]:[153]"  (null)IGHT AND AIR STILL FILTER THROUGH"
3941 [153]"THE BLOCKED ENTRANCE, BUT THERE'S NO WAYOUT!":[153]
3950 [153]"  (null)AIT!!!  (null)AYBE THERE'S ANOTHER EXIT!!!"
3951 [153]"ON(null)OU'D BETTER HOPE SO, BECAUSE NOBODY"
3952 [153]"KNOWS WHERE YOU ARE!!":[141]30:[153]
3960 [153]"LOAD"[163]11)"LENATN(null)VAL (null)ASC (null)LEFT$VAL (null)VALATN(null)VAL(null)"
3961 [153]"  (LEN) LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) 1986 PEEK(null) (null)(null)VAL(null)VAL (null)LEFT$VAL(null)(null)(null)(null)"
3962 [153]"========================================"
3963 [153]"   LENOMMANDS USED IN THIS ADVENTURE ARE:":[153]
3964 [153]"(null)(null)(null)(null)LEFT$ (OR (null)) - MOVE NORTH"
3965 [153]"(null)(null)(null)(null)LEFT$ (OR (null)) - MOVE SOUTH":[153]"VALATN(null)(null) (OR VAL) - MOVE EAST"
3970 [153]"(null)VAL(null)(null) (OR (null)) - MOVE WEST"
3971 [153]"(null)(null)(null)(null) (OR (null)) - DESCRIBES YOUR LOCATION":[153]
3972 [153]"CHR$VAL(null) - TAKE AN OBJECT FROM THE ROOM":[153]
3980 [153]"(null)(null)VAL (null)PEEKMID$VALLEN(null) - WILL USE AN OBJECT."
3981 [153]"ASCOR INSTANCE, (null)(null)VAL ASC(null)ATN(null)LEFT$(null)RIGHT$CHR$LEFT$(null) WILL TURN"
3982 [153]"ON THE FLASHLIGHT.":[153]
3990 [153]"RIGHT$(null)(null)VAL(null)(null)(null)(null)(null) (OR RIGHT$) - TELLS WHAT YOU ARE"
3991 [153]"CARRYING. (null)(null)(null)VAL: YOUR BACKPACK WILL"
3992 [153]"NOT BE INCLUDED SINCE IT'S ONLY USED"
3993 [153]"TO CARRY STUFF."
4000 [153]:[153]"(null)(null)RIGHT$(null) - ENDS THE GAME.":[141]30
4010 [153]"LOAD"[163]11)"LENATN(null)VAL (null)ASC (null)LEFT$VAL (null)VALATN(null)VAL(null)"
4011 [153]"  (LEN) LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) 1986 PEEK(null) (null)(null)VAL(null)VAL (null)LEFT$VAL(null)(null)(null)(null)"
4012 [153]"========================================"
4013 [153]"  (null)OUR SCORE WILL CONSTANTLY BE"
4014 [153]"DISPLAYED AT THE TOP OF THE SCREEN.":[153]
4020 [153]"  (null)HE ROOMS ARE NUMBERED TO HELP YOU"
4021 [153]"TELL THEM APART. (null)HERE IS NO"
4022 [153]"SIGNIFICANCE IN THE WAY THEY ARE"
4023 [153]"NUMBERED.":[153]VT$(20)
4030 [153]"(null)RESS 'RIGHT$' TO READ THE INSTRUCTIONS"
4031 [153]"AGAIN OR ANY OTHER KEY TO START YOUR"
4032 [153]"ADVENTURE.";:[151]198,0:[146]198,1:[161]A$
4033 [139]A$[178]"RIGHT$"[176]A$[178]"I"[167]3830
4040 [153]"LOAD":[141]3760:[142]
4050 [153]:[153]:[153]"(null)(null)(null) (null)ATNSTR$VAL RIGHT$(null)!!!!!!!! (null)OU'VE ESCAPED THE"
4051 [153]"CAVE! (null)OU STUMBLE INTO CAMP, WHERE YOU"
4052 [153]"FIND THAT YOUR FRIENDS HAVE STARTED A "
4053 [153]"LARGE MANHUNT FOR YOU. (null)HE NEWSPAPERS"
4054 [153]"REPORT YOUR STORIES, BUT YOUR STORIES"
4060 [153]"ABOUT THE LOWER LEVEL GET YOU SENT TO"
4061 [153]"THE FUNNY FARM. (null)OON, HOWEVER, YOU ARE"
4062 [153]"RELEASED WHEN A SPELUNKER FINDS THE"
4063 [153]"CAVE AND CONFIRMS YOUR STORY."
4064 [153]:[153]"(null)OUR SCORE WAS: ";SE:[139]SE[179]60[167]RK$[178]"WANDERER."
4070 [139]SE[178]60[167]RK$[178]"RAMBLER."
4080 [139]SE[179]79[167]RK$[178]"EXPLORER."
4090 [139]SE[179]89[167]RK$[178]"SPELUNKER."
4100 [139]SE[179]99[167]RK$[178]"BRAVE WARRIOR."
4110 [139]SE[178]100[167]RK$[178]"ATNRIZONA (null)MITH (RIGHT$NDIANA MID$ONES'S COUSIN)."
4120 [153]"(null)HIS MEANS THAT YOUR RANK IS SET AT":[153]RK$:[153]
4121 [137]4840:[143]ROOM#21CONTINUED...
4130 [143]ROOM#21CONTINUED...
4140 [139]UD[178]1[167][153]:[153]"  (null)OU SWING THE PICK WITH ALL YOUR"
4141 [139]UD[178]1[167][153]"MIGHT AND HIT HIM RIGHT IN THE NECK."
4142 [139]UD[178]1[167][153]"RIGHT$T DID SOME MAJOR DAMAGE!"
4143 [139]UD[178]1[167]RD[178]RD[171][181]([187](1)[172]16)[170]1:[153]"  (null)HE (null)EAPER DROPS YOU.":[137]4390
4150 [139]UD[178]5[167][153]"  (null)OU SLICE AT HIS TAIL AND HE DROPS"
4151 [139]UD[178]5[167][153]"YOU.":RD[178]RD[171][181]([187](1)[172]5):[137]4390
4160 [139]UD[178]7[167][153]"  (null)H, YOU HIT HIM SOLIDLY IN ONE OF"
4161 [139]UD[178]7[167][153]"HIS POISONOUS FANGS. (null)OISON IS"
4162 [139]UD[178]7[167][153]"DRIPPING INTOHIS OWN MOUTH. PEEKY THE WAY,"
4163 [139]UD[178]7[167][153]"HE DROPPED YOU.":RD[178]RD[171][181]([187](1)[172]10):[137]4390
4170 [153]"  LEFT$E EATS YOU IN ONE GULP.":[137]3660
4180 [139]UD[178]1[167]4140
4190 [139]UD[178]2[167][153]"  (null)OU HOP RIGHT OVER HIM. (null)HAT MAKES HIM(null)ATNSTR$!":RD[178]RD[170]2:[137]4390
4200 [139]UD[178]3[167][153]"  (null)OU LIFT YOUR SHIELD AS HE STRIKES"
4201 [139]UD[178]3[167][153]"AND HE CHIPS A TOOTH ON IT.":RD[178]RD[171][181]([187](1)[172]8):[137]4390
4210 [139]UD[178]5[167][153]"  (null)OU CUT HIS TONGUE.":RD[178]RD[171][181]([187](1)[172]5):[137]4390
4220 [139]UD[178]7[167][153]"  (null)OU HIT HIS JAW, BREAKING IT.":RD[178]RD[171][181]([187](1)[172]17):[137]4390
4230 [137]4170
4240 [139]UD[178]1[167][153]"  (null)HE PICK CHOPPED HIS TAIL UP."
4241 [139]UD[178]1[167][153]"(null)HERE'S SNAKE BLOOD EVERYWHERE."
4242 [139]UD[178]1[167]RD[178]RD[171][181]([187](1)[172]11):[137]4390
4250 [139]UD[178]2[167][153]"  LEFT$IS TAIL BOUNCES BACK INTO HIS MOUTH"
4251 [139]UD[178]2[167][153]"AND HE ACCIDENTLY BITES HIMSELF."
4252 [139]UD[178]2[167]RD[178]RD[171][181]([187](1)[172]14):[137]4390
4260 [139]UD[178]3[167][153]"  LEFT$IS TAIL GLANCES OFF OF YOUR SHIELD   HARMLESSLY.":[137]4390
4270 [139]UD[178]5[167][153]"  (null)OU CUT HIM PRETTY GOOD, BUT HE"
4271 [139]UD[178]5[167][153]"SQUASHED YOU ALL THE SAME.":[137]3660
4280 [139]UD[178]7[167][153]"  (null)OU KNOCKED HIS TAIL AWAY, POSSIBLY"
4281 [139]UD[178]7[167][153]"INJURING IT.":RD[178]RD[171][181]([187](1)[172]3):[137]4390
4290 [153]"  RIGHT$T DOESN'T STOP THE TAIL.":[137]3660
4300 [139]UD[178]4[167][153]"  (null)OU SPIN THE MEDALLION, CREATING A"
4301 [139]UD[178]4[167][153]"FAN THAT BLOWS THE POISON BACK INTO"
4302 [139]UD[178]4[167][153]"HIS FACE.":RD[178]RD[171][181]([187](1)[172]13)[170]1:[137]4390
4310 [153]"  RIGHT$T COULDN'T STOP HIS POISON.":[137]3660
4320 [139]UD[178]1[167][153]"  (null)OU RUN IN AND REPEATEDLY HIT HIM"
4321 [139]UD[178]1[167][153]"WITH THE PICK.":RD[178]RD[171][181]([187](1)[172]25):[137]4390
4330 [139]UD[178]2[167][153]"  LEFT$AVING FUN?":[137]3300
4340 [139]UD[178]3[167][153]"  (null)O EFFECT.":[137]4390
4350 [139]UD[178]4[167][153]"  (null)OU SWING THE MEDALLION BACK AND"
4351 [139]UD[178]4[167][153]"FORTH, HYPNOTIZING HIM.":RH[178]1:[137]4390
4360 [139]UD[178]5[167][153]"  (null)OU SLICE AT HIM REPEATEDLY."
4361 [139]UD[178]5[167]RD[178]RD[171][181]([187](1)[172]10)[170]1:[137]4390
4370 [139]UD[178]6[167][153]"  (null)OU LIGHT UP MY LIFE...":[137]3300
4380 [139]UD[178]7[167][153]"  (null)OU CONK HIM THOROUGHLY ON THE HEAD"
4381 [139]UD[178]7[167][153]"AND MOUTH.":RD[178]RD[171][181]([187](1)[172]25)[170]1:[137]4390
4390 [139]RD[177]9[167]4460
4400 [139]RD[179]10[175]RD[177]0[167][153]"  (null)HE (null)EAPER IS HURT BAD - HE'S"
4401 [139]RD[179]10[175]RD[177]0[167][153]"HUDDLED IN THE CORNER, TRYING TO GET"
4402 [139]RD[179]10[175]RD[177]0[167][153]"AWAY FROM  YOU.":AK[178]0
4410 [139]RH[178]1[175]RD[179]10[175]RD[177]0[167][153]"  (null)HE (null)EAPER IS HYPNOTIZED, WITH A BIG"
4411 [139]RH[178]1[175]RD[179]10[175]RD[177]0[167][153]"GRIN ON HIS REPTILLIAN FACE. RIGHT$ DON'T"
4412 [139]RH[178]1[175]RD[179]10[175]RD[177]0[167][153]"KNOW WHAT YOU TOLD HIM, BUT HE SURE"
4413 [139]RH[178]1[175]RD[179]10[175]RD[177]0[167][153]"SEEMS TO LIKE IT!!!"
4420 [139]RD[179]1[175]PA[178]1[167][153]"  (null)OU CAN'T HURT HIM ANYMORE!"
4430 [139]RD[179]1[175]PA[178]0[167][153]"  (null)HE (null)EAPER STAGGERS, TWISTS IN"
4431 [139]RD[179]1[175]PA[178]0[167][153]"AGONY, AND FALLS WITH A MIGHTY *(null)LEFT$(null)(null)(null)*"
4432 [139]RD[179]1[175]PA[178]0[167][153]"TO THE  FLOOR.":[153]"  (null)HE (null)EAPER IS DEAD! (null)OU HAVE"
4434 [139]RD[179]1[175]PA[178]0[167][153]"CONQUERED THE VILE BEAST. PEEKUT YOU"
4440 [139]RD[179]1[175]PA[178]0[167][153]"STILL HAVE TO GET OUT OF THE CAVE."
4441 [139]RD[179]1[175]PA[178]0[167]PA[178]1:SE[178]SE[170]30:[141]40
4450 [137]3300
4460 AK[178][181]([187](1)[172]5)[170]1
4470 [139]AK[178]0[167]4460
4480 [139]AK[178]1[167][153]"  (null)HE (null)EAPER WRAPS HIS TAIL AROUND YOU"
4481 [139]AK[178]1[167][153]"AND LIFTS YOU UP IN FRONT OF HIS MOUTH"
4482 [139]AK[178]1[167][153]"AGAIN.":[137]3300
4490 [139]AK[178]2[167][153]"  (null)HE (null)EAPER PULLS HIS HEAD BACK AND"
4491 [139]AK[178]2[167][153]"STRIKES, JUST LIKE A REGULAR SNAKE.":[137]3300
4500 [139]AK[178]3[167][153]"  (null)HE (null)EAPER IS TRYING TO HIT YOU WITH"
4501 [139]AK[178]3[167][153]"HIS TAIL.":[137]3300
4510 [139]AK[178]4[167][153]"  LENUNNINGLY, THE (null)EAPER BLOWS A"
4511 [139]AK[178]4[167][153]"MOUTHFUL OF HIS POISONOUS VAPORS AT     YOU.":[137]3300
4520 [139]AK[178]5[167][153]"  (null)ITH HIS BIG WINGS, THE (null)EAPER"
4521 [139]AK[178]5[167][153]"CREATES A WIND THAT BLOWS YOU THROUGH"
4522 [139]AK[178]5[167][153]"THE NORTH DOOR.":LC[178]20:AK[178]0:[153]:[137]2740
4530 [143] LOCATION #22
4540 RM[178]22:A$[178]"---> (null)(null)(null)(null)CLOSE# 22 <---":[141]50
4541 [139]F1[179]1[167][153]"  RIGHT$T'S TOO DARK TO SEE.":[137]4570
4550 [153]"  (null)HERE IS A DOOR TO THE WEST, AND THE"
4551 [153]"CEILING SEEMS TO GO ALL THE WAY UP TO"
4552 [153]"THE FIRST LEVEL. (null)HE ROTTEN REMAINS OF"
4553 [153]"A ROPE ARE VISIBLE FAR ABOVE YOU."
4560 [139]MD[178]3[167][153]"  (null)OUR MEDALLION IS ON THE FLOOR."
4570 [141]190:[139]CM[178]2[175]UD[178]6[167]4540
4580 [139]CM[178]7[167]4540
4590 [139]CM[178]2[175]UD[178]2[167][153]"  (null)OU BOUNCE HARD AND LAND ON A LEDGE."
4591 [139]CM[178]2[175]UD[178]2[167][153]"ABOVE ROOM #22, SCRAPING YOUR KNEE."
4592 [139]CM[178]2[175]UD[178]2[167]LC[178]23:[137]4660
4600 [139]CM[178]2[167][153]"(null)O EFFECT."
4610 [139]CM[178]9[175]MD[178]1[167][153]"(null)OTHING HERE."
4620 [139]CM[178]9[175]MD[178]3[167][153]"(null)EDALLION TAKEN.":MD[178]1
4630 [139]CM[178]4[176]CM[178]5[176]CM[178]3[167][153]"(null)OU CAN'T GO THAT WAY."
4640 [139]CM[178]6[167]LC[178]20:[137]2740
4650 [137] 4570
4660 [143]  LOCATION #23
4670 RM[178]23:A$[178]"---> ROOM #23 <---":[141]50
4671 [139]F1[179]1[167][153]"RIGHT$T'S TOO DARK TO SEE.":[137] 4700
4680 [153]"  (null)HIS ROOM IS REALLY JUST A LEDGE"
4681 [153]"OVER ROOM #22.  (null)O THE SOUTH IS A DROP"
4682 [153]"OF TEN FEET.":[139]D(4)[178]1[167][153]"  (null)HERE IS AN EXIT TO THE NORTH."
4690 [153]"  (null)HERE ARE TWO SLOTS LIKE THE ONE"
4691 [153]"THAT GOT YOU INTO ROOM #22 ON THE"
4692 [153]"NORTH WALL.":[139]MD[178]4[167][153]"  (null)OUR MEDALLION IS ON THE FLOOR."
4700 [141]190:[139]CM[178]7[167]4670
4710 [139]CM[178]2[175]UD[178]6[175]F1[178]1[167][153]"(null)OU LIGHT UP MY LIFE...":[137]4670
4720 [139]CM[178]2[175]UD[178]2[167][153]"(null)OU HOP DOWN THE CHASM.":LC[178]22:[137]4530
4730 [139]CM[178]2[175]D(4)[178]1[175]UD[178]4[167][153]"(null)O EFFECT."
4740 [139]CM[178]2[175]D(4)[178]0[175]UD[178]4[167][153]"  (null)OU PUT THE MEDALLION INTO THE TOP"
4741 [139]CM[178]2[175]D(4)[178]0[175]UD[178]4[167][153]"SLOT AND IT ROOLS OUT THE BOTTOM ONTO"
4742 [139]CM[178]2[175]D(4)[178]0[175]UD[178]4[167][153]"THE FLOOR. ATN SECRET DOOR OPENS TO THE"
4743 [139]CM[178]2[175]D(4)[178]0[175]UD[178]4[167][153]"NORTH. (null)IFTY LITTLE DEVICE!":MD[178]4:D(4)[178]1
4750 [139]CM[178]2[175]UD[179][177]4[167][153]"(null)OTHING HAPPENS."
4760 [139]CM[178]3[167][153]"  (null)OU FALL DOWN THE CHASM AND BREAK"
4761 [139]CM[178]3[167][153]"YOUR NECK.":[137]3660
4770 [139]CM[178]4[175]D(4)[178]1[167][153]"  (null)HE DOOR CLOSES BEHIND YOU.":LC[178]8:[137]1230
4780 [139]CM[178]4[176]CM[178]5[176]CM[178]6[167][153]"(null)OU CAN'T GO THAT WAY."
4790 [139]CM[178]9[175]MD[179][177]4[167][153]"(null)OTHING HERE."
4800 [139]CM[178]9[175]MC[178]4[167][153]"(null)EDALLION TAKEN - ATNCHR$ATNRIGHT$(null)!!!"
4810 [137]4670
4820 [153]:[153]
4830 [153]VT$(23)HT$(1)"ATNRE YOU SURE YOU WANT TO QUIT ((null)/(null))?";
4831 [151]198,0:[146]198,1:[161]A$
4832 [139]A$[178]"Y"[176]A$[178]"(null)"[167]4840
4833 [139]A$[178]"N"[176]A$[178]"(null)"[167][142]
4834 [137]4831
4840 [153]
4850 [153]VT$(23)HT$(1)"STR$O YOU WANT TO PLAY ANOTHER GAME ((null)/(null))?";
4851 [151]198,0:[146]198,1:[161]A$
4852 [139]A$[178]"Y"[176]A$[178]"(null)"[167][138]
4853 [139]A$[178]"N"[176]A$[178]"(null)"[167]4900
4854 [137]4851
4899 :
4900 [151]1,55:[159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
4901 [139]ER[179][177]63[167][128]
4902 [147]"HELLO CONNECT",8
4903 [128]
4910 :
5000 [143] INPUT
5010 C$[178]"":MAX[178]78
5011 H$[178]"<"
5012 [153]H$"CMD";
5013 [139][194](198)[179][177]0[167][153]" CMD";:[137]5020
5014 [139]H$[178]"<"[167]H$[178]">":[137]5012
5015 [137]5011
5020 [161]AG$
5021 [139]AG$[178][199](13)[176]AG$[178][199](141)[167]5080
5022 [139]AG$[178]" "[167]5050
5025 [139]AG$[178]"CMD"[176]AG$[178][199](20)[167][139][195](C$)[177]0[167]C$[178][200](C$,[195](C$)[171]1):[137]5070
5030 [139]AG$[178][177]" "[175]AG$[179][178]"Z"[167]5050
5032 [139]AG$[178][177]"ATN"[175]AG$[179][178]"(null)"[167]AG$[178][199]([198](AG$)[171]128):[137]5050
5035 [137]5011
5050 [139][195](C$)[179]MAX[167][153]AG$;:C$[178]C$[170]AG$
5060 [137]5011
5070 [153]"CMD CMD";:[137]5011
5080 [153]" ":[142]